home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tt.d64 / ponzo tutor-3.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  19KB  |  529 lines
  1. 0 RUN00100
  2. 1 REM"
  3. 2 [143]" PONZ0*1983*WATERLOO
  4. 3 REM"
  5. 100 [151]53281,15:[151]53280,12:[153]"STOP":[153]"LOAD              C64 TUTOR-3
  6. 101 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  7. 102 PRINT"[221]           MORE ON THE C64          [146] [221]":MS$=" WELCOME! "
  8. 103 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][144]"
  9. 104 SN$="1000":GOSUB63200:GOSUB63600
  10. 105 GOSUB60000:GOSUB59000
  11. 1000 GOSUB60000
  12. 1010 PRINT"[147][209]I STORE INFO IN 8 (BINARY) BIT "CHR$(34)"BYTES"CHR$(34)"."
  13. 1020 PRINT"[209]SINCE 2^8=256, EACH BYTE CAN HOLD A"
  14. 1030 PRINT" NUMBER FROM 0 TO 255 INCLUSIVE."
  15. 1040 PRINT"[209]TWO BYTES ARE USED TO ADDRESS"
  16. 1050 PRINT" 2^16 MEMORY LOCATIONS:0,1,2,...,65535"
  17. 1060 PRINT"[209]YOU CAN FIND WHAT'S IN EACH BY PEEK[146]ING:"
  18. 1070 PRINT"FOR I=100 TO 200:PRINT PEEK(I);:NEXT"
  19. 1080 PRINT"[209]THIS MAY BE ENTERED DIRECTLY"
  20. 1090 PRINT" AND WILL PRINT THE CONTENTS"
  21. 1100 PRINT" OF LOCATIONS 100 TO 200."
  22. 1110 PRINT"[209]SOME OF M[146]EMORY IS R[146]EAD O[146]NLY(ROM)."
  23. 1120 PRINT"[209]SOME IS R[146]ANDOM A[146]CCESS(RAM)."
  24. 1130 PRINT"[209]YOU CAN WRITE INTO RAM BY POKE[146]ING."
  25. 1140 PRINT"  POKE1100,1"
  26. 1145 PRINT"[209]THIS WILL PUT THE NO. 1 IN LOC'N 1100."
  27. 1146 GOSUB63000
  28. 1160 PRINT"[147]NOTE[146]: FOR POKE M,N "
  29. 1170 PRINT:PRINT"[209]M[146] MUST BE IN [0,65535],N[146] IN [0,255]."
  30. 1180 PRINT"[209]I USE 0 THRU' 1023 MYSELF..YOU USE "
  31. 1190 PRINT" 2048 TO 40959 FOR BASIC[146] PROGRAMS.."
  32. 1195 PRINT"[209]I USE 1024 THRU' 2047
  33. 1200 [153]" TO STORE THE 1000 CHARACTERS APPEARING"
  34. 1210 [153]" ON THE SCREEN,ETC.ETC"
  35. 1211 [153]"(NOTE:80 COLUMN PETS HAVE 2000)
  36. 1220 PRINT"SCREEN MEMORY[146]"
  37. 1230 PRINT"[209]THESE 1000 LOC'NS START AT $0400"
  38. 1240 PRINT" 0400(HEXADECIMAL)=4*256=1024(DECIMAL)"
  39. 1245 PRINT"[209]YOU CAN CHANGE WHAT'S"
  40. 1250 PRINT" ON THE SCREEN WITH A PRINT[146] STATEMENT"
  41. 1260 PRINT" PRINT "CHR$(34)"ABC"CHR$(34)
  42. 1270 PRINT" OR BY 'POKEING' SCREEN MEMORY:"
  43. 1280 PRINT" POKE1100,1"
  44. 1290 PRINT"[209]THIS PUTS 1[146] INTO SCREEN MEMORY LOC'N"
  45. 1300 PRINT" 1100, AND 1[146] CORRESPONDS TO AN "CHR$(34)"A"CHR$(34)
  46. 1310 PRINT" SO I'LL PRINT THE LETTER "CHR$(34)"A"CHR$(34)
  47. 1316 GOSUB63000
  48. 1320 PRINT"[147]TO SEE WHAT NO. IN [0,255] CORRESPONDS"
  49. 1330 PRINT"TO WHICH SYMBOL, YOU CAN TRY THIS:"
  50. 1340 PRINT"10 FOR I=0 TO 255"
  51. 1350 PRINT"20 POKE1024+I,I  "
  52. 1360 PRINT"30 NEXT          "
  53. 1370 PRINT"..AND TRY POKE1100,N[146]"
  54. 1371 PRINT"WITH 'N'=0,1,2,...OR 255.":MS$="  TRY IT![146]"
  55. 1380 PRINT"THEN TYPE @[146] TO CONTINUE!":GOSUB63100
  56. 1385 GOSUB63000:PRINT""
  57. 1390 SN$="02000":GOTO63300
  58. 2000 GOSUB60000:PRINT"[147][166][166][166][166][166][166]SOME SPECIAL LOCATIONS[146][166][166][166][166]"
  59. 2010 PRINT:PRINT"[209]IN 197 I KEEP TRACK OF WHAT KEY IS"
  60. 2020 PRINT" DEPRESSED. TO SEE THE KEY[146] VS. NUMBER"
  61. 2030 PRINT" CORRESPONDENCE, TRY:"
  62. 2040 PRINT"50 PRINT PEEK(197);"
  63. 2050 PRINT"60 GO TO 50        "
  64. 2060 PRINT"THEN RUN AND BANG ON A KEY!"
  65. 2065 PRINT"THEN TYPE @[146] TO CONTINUE."
  66. 2070 SN$="03000":GOTO63300
  67. 3000 GOSUB60000
  68. 3010 PRINT"[147]PRINTCHR$(14) WILL CAUSE"
  69. 3040 PRINT"ME TO SWITCH TO "CHR$(34)"LOWER"CHR$(34)" CASE."
  70. 3050 PRINT"YOU MIGHT LIKE TO TRY IT!"
  71. 3060 PRINT"IN PARTICULAR, TRY RUNNING:"
  72. 3070 PRINT"10 FOR I=0 TO 255  "
  73. 3071 PRINT"20 POKE1024+I,I    "
  74. 3072 PRINT"30 PRINTCHR$(14+K);"
  75. 3073 PRINT"40 K=128-K:NEXT    "
  76. 3080 MS$="DO A CHR$[146]!":GOSUB63100
  77. 3085 PRINT"...THEN TYPE @[146] TO CONTINUE"
  78. 3090 SN$="04000":GOTO63300
  79. 4000 POKE59468,12:GOSUB60000
  80. 4020 PRINT"PRINTCHR$(142)
  81. 4030 [153]"WILL PUT ME BACK TO UPPER CASE."
  82. 4040 [153]"(null)IN 160,161 & 162 I KEEP THE TIME"
  83. 4050 [153]" ...FROM THE MOMENT YOU TURN ME ON."
  84. 4060 [153]"(null)I'VE GOT A BUILT-IN "
  85. 4070 [153]" CRYSTAL-CONTROLLED CLOCK."
  86. 4080 [153]" I KEEP THE NUMBER OF JIFFIESWAIT IN"
  87. 4090 [153]" MEMORY LOC'NS 160,161,162"
  88. 4100 [153]" A JIFFIEWAIT IS 1/60 SECOND."
  89. 4110 [153]"(null)YOU COULD WRITE A PROGRAM TO CONVERT"
  90. 4120 [153]" THIS TO HOURS:MINUTES:SECONDS.."
  91. 4130 [153]" OR YOU COULD USE MY BUILT-IN ROUTINE!"
  92. 4140 [153]"100 PRINT TI$"
  93. 4150 [153]" HERE,TI$ WILL GIVE HHMMSS LIKE SO:":[153]"015209"
  94. 4155 [153]"01WAIT=HOURS 52WAIT=MINUTES 09WAIT=SECONDS.":[141]63000
  95. 4160 [153]"LOADI'LL PRINT OUT TI$ SO YOU CAN SEE HIM:"
  96. 4170 AA$[178]TI$:H$[178][200](AA$,2):M$[178][202](AA$,3,2):S$[178][201](AA$,2)
  97. 4175 [129]T[178]1[164]500:[130]
  98. 4180 [153]"                  "AA$
  99. 4190 [153]"                      ^ THAT'S HIM!"
  100. 4195 [153]"IT'S BEEN:"
  101. 4196 [153]""H$"WAIT HOURS,"M$"WAIT MINUTES & "S$"WAIT SECONDS"
  102. 4197 [153]"SINCE YOU TURNED THE C64WAIT ON!"
  103. 4200 [153]"RETURNWAIT..":[141]63001
  104. 4240 [153]"LOADYOU CAN SET THE CORRECT TIME BY TYPING:"
  105. 4250 [153]"TI$="[199](34)"093000"[199](34)
  106. 4260 [153]"THEN I'LL COUNT JIFFIES STARTING WITH"
  107. 4270 [153]"A COUNT CORRESPONDING TO 9:30 A.M."
  108. 4280 [153]"(000000=MIDNIGHT!!)":[141]63000
  109. 4290 [153]"LOADTHE VARIABLE TIWAIT GIVES THE JIFFIE-COUNT"
  110. 4300 [153]"I'LL PRINT HIM TOO:":[129]T[178]1[164]500:[130]:[153]""
  111. 4310 [153]"                 "TI
  112. 4320 [153]"                   ^ THAT'S HIM!"
  113. 4330 [153]"PLEASE, DON'T USE TI$WAIT OR TIWAIT FOR ANY"
  114. 4340 [153]"OF YOUR VARIABLE NAMES!"
  115. 4350 [153]"   USRUSRUSRUSR
  116. 4361 PRINT"RETURN[146]..":GOSUB63001
  117. 4400 PRINT"[147][166][166][166][166][166][166][166][166][166]INPUT/OUTPUT[146][146][166][166][166][166][166][166][166][166]"
  118. 4410 PRINT"[209]TO WRITE DATA ON TAPE YOU "
  119. 4420 PRINT" OPEN A WRITE CHANNEL TO THE CASSETTE"
  120. 4430 PRINT"[209]YOU'LL WANT TO GIVE THE DATA A NAME[146],TOO"
  121. 4440 PRINT" AND YOU'LL WANT TO DISTINGUISH BETWEEN"
  122. 4450 PRINT" WRITING[146] TO TAPE AND READING[146] FROM TAPE."
  123. 4460 PRINT"200 OPEN3,1,1,"CHR$(34)"DATA"CHR$(34)"[146]"
  124. 4470 PRINT"OPEN A CHANNEL(#3)TO THE TAPE DRIVE(#1)"
  125. 4480 PRINT" FOR WRITING[146] (THE LAST #1 MEANS WRITE[146])"
  126. 4490 PRINT"210 FOR I=1TO10"
  127. 4500 PRINT"220 PRINT#3,I  "
  128. 4510 PRINT"230 NEXT       "
  129. 4520 PRINT"240 CLOSE 3    "
  130. 4530 PRINT"[209]THIS WRITES THE NUMBERS 1,2,..10"
  131. 4540 PRINT" ON THE TAPE-FILE CALLED "CHR$(34)"DATA"CHR$(34)
  132. 4560 GOSUB63000
  133. 4570 PRINT"[147]IT'S VERY IMPORTANT TO CLOSE[146] THE "
  134. 4580 PRINT"WRITE CHANNEL AFTER PRINTING TO TAPE!!"
  135. 4590 PRINT"(ELSE I WON'T PRINT AN END-MARKER"
  136. 4600 PRINT"AND MAY NOT WRITE THE LAST BIT OF DATA)."
  137. 4620 PRINT"[209]TO READ[146] A FILE(CALLED,SAY,'DATA')"
  138. 4630 PRINT"300 OPEN2,1,0,"CHR$(34)"DATA"CHR$(34)
  139. 4635 PRINT"310 FOR I=1TO10     "
  140. 4640 PRINT"320 INPUT#2,A(I)    "
  141. 4650 PRINT"330 NEXT            "
  142. 4660 PRINT"HERE THE READ[146] CHANNEL IS #2"
  143. 4670 PRINT"..THE LAST #0 MEANS READ[146]"
  144. 4680 PRINT"IT IS ASSUMED THERE ARE 10 NO'S TO READ."
  145. 4700 GOSUB63000
  146. 4710 PRINT"[147]A PRINT# STATEMENT:"
  147. 4720 PRINT"220 PRINT#3,I"
  148. 4730 PRINT"WILL WRITE THE VALUE OF I,FOLLOWED BY"
  149. 4740 PRINT"A RETURN[146] & SPACES[146]!"
  150. 4745 PRINT"YOU DON'T WANT THE 'SPACES'[146]!"
  151. 4750 PRINT"THE CORRECT WAY IS:"
  152. 4760 PRINT"220 PRINT#3,I;CHR$(13);"
  153. 4770 PRINT"HERE YOU[146] SPECIFY THE RETURN[146]=CHR$(13)"
  154. 4775 PRINT"..WITHOUT SPACES...."
  155. 4780 PRINT"THE ;[146] AT THE END AVOIDS 'LINE FEED' TOO!":GOSUB63000
  156. 4790 PRINT"[147]THE STATEMENT:"
  157. 4800 PRINT"240 CLOSE 3"
  158. 4810 PRINT"WRITES AN END-OF-FILE MARKER ON TAPE."
  159. 4820 PRINT"WHEN READ[146]ING DATA YOU CHECK FOR THIS:"
  160. 4830 PRINT"IF ST=64 THEN [146]..."
  161. 4840 MS$="   CLOSE[146]!":GOSUB63100
  162. 4850 GOSUB63000
  163. 4860 PRINT"[147]THE WRITE TO TAPE[146] ROUTINE IS THEN:"
  164. 4870 PRINT"200 OPEN3,1,1,"CHR$(34)"DATA"CHR$(34)"   "
  165. 4880 PRINT"210 FOR I=1TO10        "
  166. 4890 PRINT"220 PRINT#3,I;CHR$(13);"
  167. 4900 PRINT"230 NEXT               "
  168. 4910 PRINT"240 CLOSE 3            "
  169. 4920 PRINT"THE READ FROM TAPE[146] ROUTINE IS:"
  170. 4930 PRINT"300 OPEN2,1,0,"CHR$(34)"DATA"CHR$(34)"          "
  171. 4940 PRINT"310 INPUT#2,A(J)              "
  172. 4950 PRINT"320 IF ST<>64THENJ=J+1:GOTO310"
  173. 4960 PRINT"330 CLOSE2                    "
  174. 4970 GOSUB63000:SN$="05000":GOSUB63600
  175. 5000 GOSUB60000
  176. 5005 PRINT"[147]TO CREATE A FILE[146]:"
  177. 5010 PRINT"10 OPEN15,8,15,"CHR$(34)"I"CHR$(34)"+DR$         "
  178. 5020 PRINT"20 OPEN2,8,2,DR$+"CHR$(34)":"CHR$(34)"+NM$+"CHR$(34)",S,W"CHR$(34)
  179. 5030 PRINT"30 PRINT#2,A;CHR$(13);         "
  180. 5040 PRINT"DR$[146] IS DRIVE #   [201]PREVIOUSLY"
  181. 5050 PRINT"NM$[146] IS FILE NAME [203]DEFINED!"
  182. 5060 PRINT"10[146] OPENS THE COMMAND CHANNEL #15"
  183. 5070 PRINT"AND I[146]NITIALIZES THE DRIVE DR$."
  184. 5075 PRINT"(NOT NECESSARY ON 'NEWER' DRIVES)."
  185. 5080 PRINT"20[146] OPENS A W[146]RITE CHANNEL,#2,"
  186. 5090 PRINT"FOR A S[146]EQUENTIAL(DATA) FILE CALLED NM$"
  187. 5100 PRINT"30[146] PRINTS A NUMBER,A[146],TO THE DATA FILE."
  188. 5110 PRINT"[209]YOU MAY REPEAT STATEMENT 30":PRINT"WITH VARIOUS A[146]'S,THEN.."
  189. 5120 PRINT"40 CLOSE2:CLOSE15":PRINT
  190. 5130 GOSUB63000
  191. 5140 PRINT"[147]TO READ FROM A FILE[146]:"
  192. 5150 PRINT"60 OPEN15,8,15,"CHR$(34)"I"CHR$(34)"+DR$         "
  193. 5160 PRINT"70 OPEN2,8,2,DR$+"CHR$(34)":"CHR$(34)"+NM$+"CHR$(34)",S,R"CHR$(34)
  194. 5170 PRINT"80 INPUT#2,A(J)                "
  195. 5180 PRINT"90 IFST<>64THENJ=J+1:GOTO80    "
  196. 5190 PRINT"100 CLOSE2:CLOSE15             "
  197. 5195 PRINT"60[146] INITIALIZES ETC."
  198. 5200 PRINT"70[146] OPENS A R[146]EAD CHANNEL TO FILE NM$."
  199. 5210 PRINT"90[146] CHECKS FOR END-OF-FILE(STATUS=64)."
  200. 5216 GOSUB63000
  201. 5218 PRINT"[147]TO REITERATE[146]: WHEN WRITING DATA":PRINT"DO NOT[146] USE:"
  202. 5219 PRINT"PRINT#1,A,B$,C[146] OR PRINT#1,A;B$;C;[146]"
  203. 5220 PRINT"INSTEAD USE:"
  204. 5221 PRINT"PRINT#1,A;CHR$(13);B$;CHR$(13);..ETC"
  205. 5222 PRINT"IF IT'S PAINFULL TO TYPE 'CHR$(13)' THEN"
  206. 5223 PRINT"DEFINE  CR$=CHR$(13) AND USE:"
  207. 5224 PRINT"PRINT#1,A;CR$;B$;CR$;C;CR$;[146]"
  208. 5226 GOSUB63000
  209. 5340 PRINT"[147][166][166][166][166][166][166][166][166]RANDOM NUMBERS[146][166][166][166][166][166][166][166][166][166][166][166]"
  210. 5350 PRINT"[209]I HAVE A RANDOM NUMBER GENERATOR[146]."
  211. 5360 PRINT"10 X=RND(K)"
  212. 5365 PRINT"[209]EACH NEGATIVE[146] K DETERMINES A"
  213. 5370 PRINT" UNIQUE SEED[146]. THEN:"
  214. 5375 PRINT"20 X1=RND(1)"
  215. 5380 PRINT"30 X2=RND(1)"
  216. 5385 PRINT"40 X3=RND(1)"
  217. 5390 PRINT"[209]HERE X1,X2,X3,..IS A 'RANDOM SEQUENCE'"
  218. 5391 PRINT" OF NUMBERS IN 0<X<1."
  219. 5395 PRINT"[209]SUBSEQUENT 'RND(1)' STATEMENTS YIELD"
  220. 5400 PRINT" SUCCESSIVE MEMBERS OF THE SEQUENCE.":GOSUB63000
  221. 5410 PRINT"[147][209]TO GET A RANDOM[146] SEED,USE:"
  222. 5415 PRINT"10 X=RND(-TI)"
  223. 5420 PRINT"WHERE TI[146] IS THE JIFFY[146] COUNT!"
  224. 5430 PRINT"[209]YOU CAN OBTAIN, USING RND(-K)"
  225. 5431 PRINT"FOLLOWED BY LOTS OF RND(1)[146]'S,"
  226. 5435 PRINT"A REPRODUCIBLE[146] 'RANDOM SEQUENCE'.":GOSUB63000
  227. 5440 PRINT"[147]IF YOU REALLY[146] WANT A RANDOM[146] NUMBER:"
  228. 5445 PRINT"10 X=RND(0)"
  229. 5450 PRINT"WILL GIVE YOU ONE. SUCCESSIVE 'RND(0)'"
  230. 5455 PRINT"STATEMENTS YIELD NO'S TOTALLY UNRELATED."
  231. 5456 MS$="SO IT SAYS":GOSUB63100
  232. 5465 GOSUB63000
  233. 5470 PRINT"[147]OF COURSE X=100+100*RND(0)[146] GIVES "
  234. 5475 PRINT" A NUMBER IN THE RANGE:0-100"
  235. 5476 FORT=1TO500:NEXT
  236. 5477 POKE54272,0:POKE54273,0:POKE54274,4000AND255:POKE54275,4000/256
  237. 5478 POKE54276,0:POKE54277,0:POKE54278,240
  238. 5480 PRINT"10 POKE54296,15:POKE54278,240"
  239. 5485 PRINT"20 FORI=1TO100:POKE54276,17  "
  240. 5490 PRINT"30 POKE54273,100+100*RND(0)  "
  241. 5495 PRINT"40 NEXT                      "
  242. 5496 PRINT"CAN YOU GUESS WHAT ^[146] WILL DO???":GOSUB63000
  243. 5505 POKE54296,15:POKE54276,17:FORI=0TO100
  244. 5510 POKE54273,100+100*RND(0):NEXT
  245. 5520 POKE54296,0:POKE54277,0
  246. 5530 MS$="BEAUTIFUL!":GOSUB63100:GOSUB63000
  247. 6000 PRINT"[147][166][166][166][166][166][166][166][166][166]ODDS 'N' ENDS[146][166][166][166][166][166][166][166][166][166]"
  248. 6005 PRINT"[166][166][166][166][166][166]1[146][166][166][166][166][166][166]"
  249. 6010 PRINT"10 INPUT A$"
  250. 6020 PRINT" HIT 'RETURN' WHEN ASKED TO 'INPUT',"
  251. 6030 PRINT"AND I LEAVE A$ UNCHANGED."
  252. 6040 PRINT"TO AVOID THIS, YOU CAN USE:
  253. 6050 [153]"10 INPUT"[199](34)
  254. 6060 [153]"ON"[163]10)"   7LEFT$LEFT$LEFT$WAIT"[199](34)";A$"
  255. 6070 [153][163]10)" ^   ^"
  256. 6080 [153][163]10)" 3   3"
  257. 6090 [153][163]10)"SPC CRSR LEFT"
  258. 6100 [153]"THIS GIVES.."
  259. 6110 [133]"   7CMDCMDCMD";A$
  260. 6120 [153]"ONONONHIT 'RETURN' AND I SET A$='7'"
  261. 6130 [141]63000
  262. 6140 [153]"LOADOF COURSE"
  263. 6150 [153]"10 INPUT"[199](34)
  264. 6160 [153]"ON"[163]9)"OK   YLEFT$LEFT$LEFT$WAIT"[199](34)";A$"
  265. 6170 [153]"IS NICE TOO."
  266. 6180 [133]"OK   YCMDCMDCMD";A$
  267. 6190 [141]63000
  268. 7000 [153]"LOADSPC(SPC(SPC(SPC(SPC(SPC(2WAITSPC(SPC(SPC(SPC(SPC(SPC("
  269. 7010 [153]"?FRE(0)"
  270. 7020 [153]"AND I GIVE YOU THE NUMBER
  271. 7030 PRINT"OF 'FREE' BYTES OF MEMORY."
  272. 7040 PRINT"[166][166][166][166][166][166]3[146][166][166][166][166][166][166]"
  273. 7050 PRINT"OPEN4,4:CMD4:LIST"
  274. 7060 PRINT"LISTS YOUR PROGRAM ON THE PRINTER."
  275. 7070 PRINT"(BUT, AFTER LISTING, TYPE:"
  276. 7080 PRINT"PRINT#4:CLOSE4"
  277. 7090 PRINT"TO PROPERLY CLOSE THE PRINTER CHANNEL."
  278. 7100 GOSUB63000
  279. 8000 PRINT"[147][166][166][166][166][166][166]4[146][166][166][166][166][166][166]"
  280. 8010 PRINT"10 FORI=1TO1000:NEXT"
  281. 8020 PRINT"IS GOOD FOR BUILDING IN DELAYS."
  282. 8030 PRINT"BUT THE FOLLOWING IS OK TOO:"
  283. 8040 PRINT"10 A=TI           [146]  A=THE CURRENT TIME"
  284. 8050 PRINT"20 IFTI<A+60THEN20"
  285. 8060 PRINT"THIS WAITS FOR 60 JIFFIES=1SECOND."
  286. 8070 GOSUB63000
  287. 9000 PRINT"[147][166][166][166][166][166][166]5[146][166][166][166][166][166][166]"
  288. 9010 PRINT"THE C64 'KEYBOARD BUFFER' HOLDS 10 BYTES."
  289. 9020 PRINT"IF YOU RUN:"
  290. 9030 PRINT"10 FORI=1TO3000:NEXT"
  291. 9040 PRINT"20 FORI=1TO10:GETA$:?A$;:NEXT"
  292. 9050 PRINT"THEN, DURING THE DELAY, YOU CAN HIT"
  293. 9060 PRINT"10 KEYS (OR LESS) AND THEY WILL BE "
  294. 9070 PRINT"SAVED IN THE BUFFER."
  295. 9080 PRINT"BUT[157][157][157][184][184][184][145]..DON'T HIT > 10 KEYS!"
  296. 9085 PRINT"(ELSE I WON'T GET THEM ALL)"
  297. 9090 PRINT"TRY IT? THEN:"
  298. 9100 PRINT"TYPE @ [146]":SN$="10000":GOTO63300
  299. 10000 GOSUB60000:PRINT"[147][166][166][166][166][166][166]6[146][166][166][166][166][166][166]"
  300. 10010 PRINT"MEMORY LOCATION 198 (DECIMAL) HOLDS"
  301. 10020 PRINT"THE NUMBER OF CHARACTERS IN THE "
  302. 10030 PRINT"KEYBOARD BUFFER."
  303. 10040 PRINT"YOU CAN CLEAR THE BUFFER WITH:"
  304. 10050 PRINT"10 FORI=1TO10:GETA$:NEXT"
  305. 10060 PRINT"OR"
  306. 10070 PRINT"10 GETA$:IFA$<>"CHR$(34)CHR$(34)"THEN10"
  307. 10080 PRINT"OR"
  308. 10090 PRINT"10 POKE198,0"
  309. 10100 GOSUB63000
  310. 11000 PRINT"[147][166][166][166][166][166][166]7[146][166][166][166][166][166][166]"
  311. 11010 PRINT"MEMORY LOCATIONS 55 AND 56 HOLD THE"
  312. 11020 PRINT"LOCATION OF THE 'END OF BASIC MEMORY'."
  313. 11030 PRINT"PRINT IT OUT BY TYPING:"
  314. 11040 PRINT"?PEEK(55)+256*PEEK(56)"
  315. 11050 PRINT"THEN   TYPE @"
  316. 11060 PRINT"?PEEK(55)+256*PEEK(56)[145]":SN$="12000":GOTO63300
  317. 12000 GOSUB60000:X=32768
  318. 12020 PRINT"[147][166][166][166][166][166][166]8[146][166][166][166][166][166][166]TOP="X
  319. 12030 PRINT"IF YOU WANT TO STORE SOME NUMBERS"
  320. 12040 PRINT"FOR SAFE KEEPING, YOU CAN CHANGE THE"
  321. 12050 PRINT"TOP OF BASIC MEMORY, BY POKING A NEW[157][157][157][184][184][184]"
  322. 12060 PRINT"'TOP' INTO 55 & 56, SO THE NEW TOP IS":X$=MID$(STR$(X-100),2)
  323. 12070 PRINT"SAY, "X$", GIVING YOU 100 PLACES"
  324. 12080 PRINT"TO STORE YOUR NUMBERS."
  325. 12090 PRINT"HOW TO STORE THEM? POKE[146] THEM INTO RAM!"
  326. 12100 PRINT"10 FORI=0TO99:POKE"X$"+I,A(I):NEXT":GOSUB63000
  327. 13000 PRINT"[147][166][166][166][166][166][166]9[146][166][166][166][166][166][166]"
  328. 13010 PRINT"EVERY JIFFY (60 TIMES/SECOND) I"
  329. 13020 PRINT"STOP WHAT I'M DOING AND UPDATE THE"
  330. 13030 PRINT"JIFFY CLOCK,AND..AMONG OTHER THINGS.."
  331. 13040 PRINT"CHECK TO SEE IF YOU PRESSED THE"
  332. 13050 PRINT"RUN/STOP[146] KEY..."
  333. 13060 PRINT"..AND, IF SO, THEN I WILL STOP![157][157][157][157][157][184][184][184][184]"
  334. 13070 PRINT"I DO THESE THINGS (60 TIMES/SECOND)"
  335. 13080 PRINT"BY JUMPING TO A MAGIC MEMORY LOCATION."
  336. 13090 GOSUB63000
  337. 13100 PRINT"[147]THIS MAGIC LOCATION IS STORED IN"
  338. 13110 PRINT"MEMORY LOCATIONS 788 & 789."
  339. 13120 PRINT"I JUMP TO PEEK(788)+256*PEEK(789)"
  340. 13130 PRINT"HOLD ON..I'LL TELL YOU WHERE I JUMP...":GOSUB63000
  341. 13140 PRINT"[147]....IT'S TO";
  342. 13150 A9=7*4096+15*256+14*16+10:ML=PEEK(A9)+256*PEEK(A9+1):PRINT""ML
  343. 13160 PRINT"AT LOCATION"ML" ARE INSTRUCTIONS"
  344. 13170 PRINT"WHICH CHECK FOR STOP[146], ETC.."
  345. 13180 PRINT"YOU CAN BYPASS THE 'CHECK FOR STOP'"
  346. 13190 PRINT"BY HAVING ME JUMP TO "ML+3"[146]!!"
  347. 13200 PRINT"..SIMPLY POKE788,PEEK(788)+3"
  348. 13210 PRINT"IN A PROGRAM AND STOP[146] WILL BE IGNORED!"
  349. 13220 GOSUB63000
  350. 13230 PRINT"[147]BUT REMEMBER TO POKE788,PEEK(788)-3"
  351. 13240 PRINT"LATER IN THE PROGRAM.."
  352. 13250 PRINT"CARE (DARE) TO TRY IT??"
  353. 13260 PRINT"REMEMBER:"
  354. 13270 PRINT"POKE788,PEEK(788)+3"
  355. 13280 PRINT"THEN WRITE A PROGRAM LIKE:"
  356. 13290 PRINT"10 FORI=1TO10000:NEXT"
  357. 13300 PRINT"AND TRY TO STOP IT."
  358. 13400 PRINT"EVENTUALLY..TYPE:"
  359. 13410 PRINT"POKE788,PEEK(788)-3"
  360. 13420 PRINT"..COME TO THINK OF IT.."
  361. 13430 PRINT"TRY IT AFTER[146] YOU'VE ENDED TUTOR[146]!":GOSUB63000
  362. 14000 PRINT"[147]THE SYS COMMAND"
  363. 14010 PRINT"I DON'T UNDERSTAND 'BASIC'."
  364. 14020 PRINT"I UNDERSTAND 'MACHINE LANGUAGE'."
  365. 14030 PRINT"HOWEVER I HAVE A BUILT-IN INTERPRETER"
  366. 14040 PRINT"WHO UNDERSTANDS BOTH!"
  367. 14050 PRINT"HE TRANSLATES YOUR BASIC COMMANDS"
  368. 14060 PRINT"INTO MACHINE LANGUAGE COMMANDS FOR ME."
  369. 14070 PRINT"THIS 'BASIC INTERPRETER' IS A SET OF"
  370. 14080 PRINT"MACHINE LANGUAGE INSTRUCTIONS WHICH"
  371. 14090 PRINT"RESIDE IN MEMORY FROM 40960."
  372. 14105 PRINT"THAT IS: $A000"
  373. 14110 GOSUB63000
  374. 14120 PRINT"[147]MACHINE LANGUAGE INSTRUCTIONS ARE"
  375. 14130 PRINT"NUMBERS FROM 0 TO 255..AND EACH MEANS"
  376. 14140 PRINT"SOMETHING SPECIAL."
  377. 14150 PRINT"FOR EXAMPLE THE SEQUENCE OF NUMBERS:"
  378. 14160 PRINT"169[146] 170[146] 141[146] 0[146] 4[146]"
  379. 14170 PRINT"SAYS TO PUT AN ASTERISK IN THE UPPER"
  380. 14180 PRINT"LEFT CORNER OF THE SCREEN."
  381. 14190 PRINT"HERE ARE SOME 'INSTRUCTIONS' TAKEN FROM"
  382. 14200 PRINT"THE INTERPRETER 'HIMSELF' (HERSELF?):":GOSUB63000:PRINT"[145][145][145][145][145][145][145]"
  383. 14210 FORI=0TO15:PRINTPEEK(40960+I);:FORJ=1TO100:NEXT:NEXT
  384. 14230 GOSUB63000
  385. 14240 PRINT"[147]OK...IF YOU CAN TALK MACHINE LANGUAGE"
  386. 14250 PRINT"THEN YOU CAN PUT YOUR M-L PROGRAM"
  387. 14260 PRINT"INTO MEMORY STARTING AT SOME"
  388. 14270 PRINT"LOCATION, SAY 20000, THEN SYS 20000"
  389. 14280 PRINT"WILL SEND ME THERE TO OBEY."
  390. 14290 PRINT"YOU MIGHT STICK YOUR PROGRAM UP AT THE"
  391. 14300 PRINT"'TOP OF BASIC RAM' SOMEWHERE AND"
  392. 14310 PRINT"PROTECT IT FROM BEING OVERWRITTEN"
  393. 14320 PRINT"BY CHANGING 'TOP' (AT 55/56 REMEMBER?)"
  394. 14330 GOSUB63000
  395. 14340 PRINT"[147]"
  396. 14350 PRINT"10 FORI=25000TO25024:READK:POKEI,K:NEXT:END"
  397. 14360 PRINT"20 DATA 162,4,160,4,132,177,160,0,132,176,177,176,73,128"
  398. 14370 PRINT"30 DATA 145,176,200,208,247,230,177,202,208,242,96"
  399. 14371 PRINT"RUN10"
  400. 14372 PRINT"SYS25000"
  401. 14375 PRINT"HERE'S A M-L PROGRAM YOU CAN TRY"
  402. 14380 PRINT"ENTER THESE, THEN RUN10[146], THEN SYS25000"
  403. 14390 PRINT"(THEN TYPE @[146] TO CONTINUE)"
  404. 14400 PRINT"":SN$="15000":GOTO63300
  405. 15000 GOSUB60000:PRINT"[147]":MS$=" SLICK EH?[146]":GOSUB63100
  406. 15010 PRINT"[147]ONE M-L INSTRUCTION WHICH IS NICE"
  407. 15020 PRINT"IS ZERO (I MEAN 0)."
  408. 15030 PRINT"THIS INSTRUCTION TELLS ME TO JUMP TO THE"
  409. 15040 PRINT"'M[146]ACHINE L[146]ANGUAGE M[146]ONITOR'."
  410. 15050 PRINT"(I LIKE THE MLM[146] SO MUCH I SOMETIMES"
  411. 15060 PRINT"JUMP THERE ON MY OWN!)"
  412. 15070 PRINT"TO GET OUT OF THE MLM JUST TYPE AN 'X'"
  413. 15080 PRINT"AND HIT THE 'RETURN' KEY."
  414. 15085 GOSUB63000
  415. 15090 PRINT"[147]LET'S TRY JUMPING TO THE MLM."
  416. 15100 PRINT"HIT A KEY WHEN YOU'RE READY TO TRY."
  417. 15110 PRINT" REMEMBER HOW TO GET OUT! "
  418. 15115 PRINT" TYPE 'X' THEN HIT 'RETURN' "
  419. 15120 PRINT"THEN @[146] TO CONTINUE..":SN$="16000":GOSUB63600
  420. 15130 GOSUB63001:SN$="16000":GOSUB63600
  421. 15140 SYS2048:GOSUB63000
  422. 16000 GOSUB60000:PRINT"[147]OK..IF YOU[157][157][157][184][184][184][145] WANT TO ENTER THE MLM"
  423. 16010 PRINT"YOU CAN FIND ANY MEMORY LOCATION WHICH"
  424. 16020 PRINT"CONTAINS '0' AND SEND ME THERE WITH SYS[146]."
  425. 16030 PRINT"ONE GOOD PLACE IS 2048. IT ALWAYS.."
  426. 16040 PRINT".....WELL , ALMOST ALWAYS...."
  427. 16050 PRINT"CONTAINS '0'."
  428. 16060 PRINT"TRY SYS2048[146]. (REMEMBER 'X' TO EXIT)"
  429. 16070 PRINT"THEN TYPE @[146] TO CONTINUE..":SN$="17000":GOTO63300
  430. 17000 GOSUB60000:PRINT"[147]ONCE IN THE MLM YOU CAN DISPLAY THE"
  431. 17010 PRINT"CONTENTS OF MEMORY MORE EASILY THAN"
  432. 17020 PRINT"WITH PEEK(THIS) AND PEEK(THAT)."
  433. 17030 PRINT"HAVING DONE YOUR SYS2048[146] I'LL GIVE"
  434. 17040 PRINT"B*"
  435. 17050 PRINT"     PC  SR AC XR YR SP
  436. 17060 [153]".;  0801 30 30 3A 2A F7
  437. 17070 PRINT".
  438. 17080 [153]"NOW IF YOU TYPE :"
  439. 17090 [153]".M A000 A00F"
  440. 17100 [153]"SO IT LOOKS LIKE:"
  441. 17105 [141]63000
  442. 17110 [153]"LOADB*"
  443. 17120 [153]"     PC  SR AC XR YR SP
  444. 17130 PRINT".;  0801 32 04 5E 00 F8
  445. 17140 [153]".M A000 A00F
  446. 17150 PRINT"THEN HIT 'RETURN'...I'LL DISPLAY MEMORY"
  447. 17160 PRINT"FROM A000 TO A00F (THAT'S HEXADECIMAL!)"
  448. 17170 PRINT"TRY IT! (REMEMBER 'X' TO EXIT MLM)":PRINT"THEN TYPE @[146]"
  449. 17180 SN$="18000":GOTO63300
  450. 18000 GOSUB60000:PRINT"[145][145][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  451. 18005 PRINT"NOTICE THAT THE NUMBERS I DISPLAY ARE"
  452. 18010 PRINT"IN HEXADECIMAL[146]!"
  453. 18020 PRINT"IN FACT YOU'VE SEEN THEM BEFORE."
  454. 18030 PRINT"THEY'RE FROM 'THE INTERPRETER'."
  455. 18040 PRINT"I LAST GAVE THEM TO YOU IN 'DECIMAL'."
  456. 18050 PRINT"(PEEK[146] ALWAYS GIVES DECIMAL)"
  457. 18060 GOSUB63000:PRINT"[147]"
  458. 18070 MS$="AU REVOIR![146]":GOSUB63100:GOSUB63500:END
  459. 59000 PRINT"[147]":GOSUB63100
  460. 59001 PRINT"DURING THE TUTORIAL YOU MAY WISH"
  461. 59002 PRINT"TO RETURN TO AN EARLIER 'PAGE'."
  462. 59003 PRINT"JUST HIT THE @-KEY[146], AT ANY TIME,"
  463. 59004 PRINT"AND THE TUTORIAL WILL BACK UP"
  464. 59005 PRINT"A PAGE OR TWO."
  465. 59006 PRINT"ALSO, YOU HAVE AN OPPORTUNITY TO"
  466. 59007 PRINT"COMPOSE YOUR OWN PROGRAMS."
  467. 59008 PRINT"WHEN YOU WISH TO CONTINUE WITH"
  468. 59009 PRINT"THE TUTORIAL, HIT THE @-KEY[146]!":GOSUB63000
  469. 59010 MS$="@[146]_REMEMBER":GOSUB63100
  470. 59020 GOSUB63000:RETURN
  471. 60000 POKE204,1:REM INITIALIZE
  472. 60001 BT$="":FORI=1TO24:BT$=BT$+"":NEXT
  473. 60002 PT$="[176][192][192][192][192][192][192][192][192][192][192][174][157][157][157][157][157][157][157][157][157][157][157][157][221][221][157][157][157][157][157][157][157][157][157][157][157][157][173][178][192][192][192][192][192][192][192][192][178][189]"
  474. 60003 PT$=PT$+"[157][157][157][157][157][157][157][157][157][157][157][157][157][206][163][163][163][163][163][163][163][163][163][163][163][163][205][157][157][157][157][157][157][157][157][157][157][157][157][157][157][165]============[167]"
  475. 60004 PT$=PT$+"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][208][207][163][163][163][163][163][163][163][163][163][163][208][207][145][145][145][145][157][157][157][157][157][157][157][157][157][157][157][157]"
  476. 60005 PT$=BT$+"[145][145][145][145][145][145]"+PT$+"[144]"
  477. 60007 ML$=""
  478. 60008 WD=40:CRT=1024:PRINTCHR$(142)
  479. 60009 W2=WD/2:W3=WD-1:W1$=MID$(STR$(WD),2):
  480. 60010 W2$=MID$(STR$(W2),2):W3$=MID$(STR$(W3),2)
  481. 60020 PRINT"[147]":POKE53281,15:POKE53280,12:PRINT"[144]"
  482. 60998 IFPEEK(789)<>7*16+15THENSYS(7*4096+15*256+12*16+3)
  483. 60999 RETURN
  484. 61000 REM*NEW WORKSPACE
  485. 61001 M=7*4096+15*256+15*16
  486. 61002 RESTORE
  487. 61003 FORI=MTOM+15:READK:POKEI,K:NEXT
  488. 61004 DATA 1,96,3,96,3,96,3,96
  489. 61005 DATA 144,127,0,0,144,127,0,0
  490. 61006 M=6*4096:FORI=0TO2:POKEM+I,0:NEXT
  491. 61007 RETURN
  492. 63000 PRINT"HIT RETURN[146] TO CONTINUE";
  493. 63001 GETA$:IFA$<>""THEN63001
  494. 63002 GETA$:IFA$=""THEN63002
  495. 63003 RETURN
  496. 63100 FORT=1TO5:PRINTPT$MS$;
  497. 63101 PRINTPT$"          ";
  498. 63102 PRINTPT$MS$;:NEXT
  499. 63103 PRINT:RETURN
  500. 63200 POKE56,96:POKE52,96:POKE55,0:POKE51,0:GOSUB61000
  501. 63201 WD=40:CRT=1024:POKECRT,96:IFPEEK(CRT+1024)<>96THENWD=80:PRINTCHR$(142)
  502. 63202 M=7*4096+15*256+9*16
  503. 63203 FORI=MTOM+91:READK:POKEI,K:NEXT
  504. 63204 DATA165,203,201,46,208,83,32,195,127,165,44,201,8,240,3,32,177,127,32
  505. 63205 DATA142,166,165,44,201,8,240,3,76,128,164,76,174,167,162,16,189,239
  506. 63206 DATA127,72,181,42,157,239,127,104,149,42,202,208,241,96,120,173,238,127
  507. 63207 DATA77,20,3,141,20,3,173,239,127,77,21,3,141,21,3,88,96,173,20,3,73
  508. 63208 DATA144,141,238,127,173,21,3,73,127,141,239,127,96,76,255,255
  509. 63216 POKEM+90,PEEK(788):POKEM+91,PEEK(789)
  510. 63220 KEY=7*4096+15*256+13*16+8
  511. 63221 SYS(KEY):REM KEY FOR IRQ SWAP
  512. 63299 RETURN
  513. 63300 REM*SWITCH TO NEW WORKSPACE
  514. 63301 GOSUB63600:REM RUN NUMBER
  515. 63302 GOSUB61000:REM NEW THE WORKSPACE
  516. 63303 GOTO63403
  517. 63400 REM*SWITCH TO OLD WORKSPACE
  518. 63401 GOSUB63600
  519. 63403 SWTCH=7*4096+15*256+9*16+15
  520. 63404 SYS(SWTCH):REM SWAP POINTERS
  521. 63405 POKE204,2:END
  522. 63500 REM*RESTORE PET
  523. 63501 SN$="100":GOSUB63600
  524. 63502 M=7*4096+15*256+12*16+3:IFPEEK(789)=7*16+15THENSYSM
  525. 63503 RETURN
  526. 63600 REM*INSERT RUN NUMBER
  527. 63601 M=2059:SN$="00000"+SN$
  528. 63602 FORI=1TO5:POKEM-I,ASC(RIGHT$(SN$,I)):NEXT:RETURN
  529.